home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00107_Script_flashTourButton < prev    next >
Text File  |  1999-04-25  |  2KB  |  88 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13. -------*This script is not used in this version of the movie*----------
  14.  
  15. property mySprite, NeutralName, startAnimation, maxFlashSpeed,¼
  16.          AnimationIsOver,planeName,flashSpeed,memberCount
  17.  
  18.  
  19. on new me
  20.   set startAnimation = TRUE
  21.   set AnimationIsOver = FALSE
  22.   set memberCount = 14
  23.   set maxFlashSpeed = 2
  24.   set mySprite = the spriteNum of me
  25.   set NeutralName = getNeutralName(me, mySprite)
  26.   set planeName = getPlaneName (me)
  27. end
  28.  
  29. on getPlaneName me
  30.   set Name = ""
  31.   repeat with i =   the Number of Chars in NeutralName down to 1
  32.     set myChar = char i of NeutralName
  33.     if myChar <> "-" then 
  34.       set Name = myChar&Name
  35.     else 
  36.       exit repeat
  37.     end if
  38.   end repeat
  39.   
  40.   return Name
  41.   
  42. end
  43.  
  44.  
  45.  
  46.  
  47.  
  48. on getNeutralName me,SpriteNum
  49.   set aMember = the member of sprite spriteNum
  50.   set Name = the name of member aMember
  51.   return Name
  52. end
  53.  
  54.  
  55. on exitFrame me
  56.   if startAnimation then
  57.     flashPlane me
  58.     go the frame
  59.   end if
  60.   if AnimationIsOver then
  61.     go to frame "Pexterior"
  62.   end if
  63.   
  64. end
  65.  
  66. on flashPlane me
  67.   if flashSpeed >= maxFlashSpeed then
  68.     set the member of sprite mySprite = memberCount&"-"&planeName
  69.     set memberCount = memberCount+1
  70.     set flashSpeed = 0
  71.     
  72.     if memberCount > 19 then 
  73.       set startAnimation = FALSE
  74.       set AnimationIsOver = TRUE
  75.     end if
  76.     
  77.   end if
  78.   set flashSpeed = flashSpeed+1
  79. end
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.